home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / dbase / carcosts.lha / CarCosts / Source / Init.h < prev    next >
Text File  |  1996-11-02  |  12KB  |  282 lines
  1.      App = ApplicationObject,
  2.       MUIA_Application_Title      , TEXT(MSG_PROGNAME),
  3.       MUIA_Application_Version    , Version,
  4.       MUIA_Application_Copyright  , "© 1993/94/95/96 Rüdiger Dreier",
  5.       MUIA_Application_Author     , "Rüdiger Dreier",
  6.       MUIA_Application_Description, TEXT(MSG_PROG_EXPLAIN),
  7.       MUIA_Application_Base       , "CARCOSTS",
  8.       MUIA_Application_Menu       , NewMenu,
  9.       MUIA_Application_Commands   , commands,
  10.       MUIA_HelpFile               , TEXT(MSG_GUIDEFILE),
  11. //      MUIA_Application_SingleTask             , TRUE,
  12.       
  13.       SubWindow, WI_Cost = WindowObject,
  14.        MUIA_Window_ID, 'MAIN',
  15.        MUIA_Window_Title, WTitel,
  16.        MUIA_HelpNode    , "mainwindow",
  17.        
  18.        WindowContents, VGroup,
  19.         Child, TX_Gad1 = TextObject,
  20.          TextFrame,
  21.          MUIA_Background, MUII_TextBack,
  22.         End,
  23.         Child, TX_Gad2 = TextObject,
  24.          TextFrame,
  25.          MUIA_Text_Contents, TEXT(MSG_DATA_FOR_TIME_TEXT),
  26.          MUIA_Background, MUII_TextBack,
  27.         End,
  28.         Child, VGroup, GroupFrameT(TEXT(MSG_ENTER_DATA_GUI)),
  29.          Child, ColGroup(2),
  30.           MUIA_Group_SameSize, TRUE,
  31.           Child, BT_Treib = KeyButton(TEXT(MSG_ENTER_FUEL_GAD),
  32.                                       TEXT(MSG_SHORTCUT_FUELLIST)[0]),
  33.           Child, BT_Unter = KeyButton(TEXT(MSG_ENTER_SUPP_GAD),
  34.                                       TEXT(MSG_SHORTCUT_SUPPLIST)[0]),
  35.          End, /* ColGroup */
  36.         End,  /* HGroup */
  37.         Child, HGroup, GroupFrameT(TEXT(MSG_RESULT_GUI)),
  38.          Child, VGroup,
  39.           Child, HGroup,
  40.            Child, ColGroup(3),
  41.             Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
  42.             Child, Label2(TEXT(MSG_KILOMETER_LABEL)),
  43.             Child, TX_Gad9 = MyText(" "),
  44.             Child, RectangleObject, NoFrame, End,
  45.             Child, Label2(TEXT(MSG_LITER_LABEL)),
  46.             Child, TX_Gad10 = MyText(" "),
  47.             Child, RectangleObject, NoFrame, End,
  48.             Child, Label2(TEXT(MSG_USED_LABEL)),
  49.             Child, TX_Gad11 = MyText(" "),
  50.       //      Child, RectangleObject, NoFrame, End,
  51.       //      Child, RectangleObject, NoFrame, End,
  52.            End, /* ColGroup */
  53.           End, /* HGroup */
  54.           Child, VSpace(1),
  55.           Child, HGroup,
  56.            Child, ColGroup(4),
  57.             Child, Label2(TEXT(MSG_SUPP_COMP_LABEL)),
  58.             Child, TX_Gad3 = MyText(" "),
  59.             Child, Label2("=>"),
  60.             Child, TX_Gad4 = MyText(" "),
  61.  
  62.             Child, Label2(TEXT(MSG_FUEL_COMP_LABEL)),
  63.             Child, TX_Gad5 = MyText(" "),
  64.             Child, Label2("=>"),
  65.             Child, TX_Gad6 = MyText(" "),
  66.  
  67.             Child, Label2(TEXT(MSG_COSTS_COMP_LABEL)),
  68.             Child, TX_Gad7 = MyText(" "),
  69.             Child, Label2("=>"),
  70.             Child, TX_Gad8 = MyText(" "),
  71.            End, /* ColGroup */
  72.           End, /* HGroup */
  73.          End, /* VGroup */
  74.         End,  /* HGroup (Groupframe) */
  75.        End,    /* VGroup (WindowContents) */
  76.       End,     /* WindowObject */
  77.       SubWindow, WI_Treib = WindowObject,
  78.        MUIA_Window_ID,  'TREI',
  79.        MUIA_Window_Title, WTitel,
  80.        MUIA_Window_Menu , MUIV_Window_Menu_NoMenu, 
  81.        MUIA_HelpNode    , "fuelwindow",
  82.        
  83.        WindowContents, VGroup,
  84.         Child, ColGroup(3), 
  85.          Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
  86.          Child, TextObject,
  87.           TextFrame,
  88.            MUIA_Text_Contents, TEXT(MSG_TITLE_FUEL),
  89.           MUIA_Text_PreParse, "\33c",
  90.          End,
  91.          Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
  92.         End, /* ColGroup */
  93.         Child, LV_Treib = ListviewObject,
  94.          MUIA_Listview_Input   , TRUE,
  95.          MUIA_Listview_List, LI_Treib = ListObject,
  96.           ReadListFrame,
  97.           MUIA_List_ConstructHook,  &Hook_conhooktreib,
  98.           MUIA_List_DestructHook,   &Hook_deshooktreib,
  99.           MUIA_List_CompareHook,    &Hook_cmphooktreib,
  100.           MUIA_List_DisplayHook,    &Hook_disphooktreib,
  101.           MUIA_List_Format     ,    "P=\33r,P=\33r,P=\33r,P=\33r,P=\33r,P=\33r", // "\33r,\33r,\33r,\33r,\33r,\33r",
  102.          End,
  103.         End, /* Listview */
  104.         Child, HGroup, GroupFrameT(TEXT(MSG_ENTER_DATA_GUI)),
  105.          Child, VGroup,
  106.           Child, HGroup,
  107.            Child, ColGroup(4),
  108.             Child, KeyLabel2(TEXT(MSG_DATE_LABEL),
  109.                              TEXT(MSG_SHORTCUT_DATE)[0]),
  110.             Child, ST_Gad1 = MyString(15,
  111.                              TEXT(MSG_SHORTCUT_DATE)[0]),
  112.             Child, KeyLabel2(TEXT(MSG_KM_LABEL),
  113.                              TEXT(MSG_SHORTCUT_KM)[0]),
  114.             Child, ST_Gad2 = MyInt(8,
  115.                              TEXT(MSG_SHORTCUT_KM)[0]),
  116.             Child, KeyLabel2(TEXT(MSG_LITER_LABEL),
  117.                              TEXT(MSG_SHORTCUT_LITER)[0]),
  118.             Child, ST_Gad3 = MyFloat(9,
  119.                              TEXT(MSG_SHORTCUT_LITER)[0]),
  120.             Child, KeyLabel2(TEXT(MSG_PRICE_LABEL),
  121.                              TEXT(MSG_SHORTCUT_PRICE)[0]),
  122.             Child, ST_Gad4 = MyFloat(15,
  123.                              TEXT(MSG_SHORTCUT_PRICE)[0]),
  124.            End, /* ColGroup */
  125.           End, /* HGroup */
  126.           Child, HGroup,
  127.            Child, ColGroup(4),
  128.             MUIA_Group_SameSize, TRUE,
  129.             Child, BT_TR_New = KeyButton(TEXT(MSG_NEW_GAD),
  130.                                          TEXT(MSG_SHORTCUT_NEW)[0]),
  131.             Child, BT_TR_Change = KeyButton(TEXT(MSG_CHANGE_GAD),
  132.                                             TEXT(MSG_SHORTCUT_CHANGE)[0]),
  133.             Child, BT_TR_Delete = KeyButton(TEXT(MSG_DELETE_GAD),
  134.                                             TEXT(MSG_SHORTCUT_DELETE)[0]),
  135.             Child, BT_TR_Cancel = KeyButton(TEXT(MSG_CANCEL_TEXT),
  136.                                             TEXT(MSG_SHORTCUT_CANCEL)[0]),
  137.             End, /* ColGroup */
  138.           End, /* HGroup */
  139.          End, /* VGroup */
  140.         End, /* HGroup (GroupFrameT) */
  141.         Child, HGroup,
  142.          Child, ColGroup(3),
  143.           Child, RectangleObject, NoFrame, MUIA_Weight, 500, End,
  144.           Child, BT_TR_Close = KeyButton(TEXT(MSG_CLOSEWINDOW_GAD),
  145.                                          TEXT(MSG_SHORTCUT_CLOSEWINDOW)[0]),
  146.           Child, RectangleObject, NoFrame, MUIA_Weight, 500, End,
  147.          End,
  148.         End,
  149.        End, /* VGroup (WindowContents) */
  150.       End, /* WindowObject */
  151.       SubWindow, WI_Unter = WindowObject,
  152.        MUIA_Window_ID,  'UNTE',
  153.        MUIA_Window_Title, WTitel,
  154.        MUIA_Window_Menu , MUIV_Window_Menu_NoMenu,
  155.        MUIA_HelpNode    , "supportwindow",
  156.        
  157.        WindowContents, VGroup,
  158.         Child, ColGroup(3),
  159.          Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
  160.          Child, TextObject,
  161.           TextFrame,
  162.           MUIA_Text_Contents, TEXT(MSG_TITLE_SUPP),
  163.           MUIA_Text_PreParse, "\33c",
  164.          End,
  165.          Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
  166.         End, /* ColGroup */
  167.         Child, LV_Unter = ListviewObject,
  168.          MUIA_Listview_Input, TRUE,
  169.          MUIA_Listview_List, LI_Unter = ListObject,
  170.           ReadListFrame,
  171.           MUIA_List_ConstructHook,  &Hook_conhookunter,
  172.           MUIA_List_DestructHook,   &Hook_deshookunter,
  173.           MUIA_List_CompareHook,    &Hook_cmphookunter,
  174.           MUIA_List_DisplayHook,    &Hook_disphookunter,
  175.           MUIA_List_Format     ,    "P=\33r MIW=-1,MIW=2 MAW=-1,MIW=5 MAW=-1,P=\33r MIW=-1",
  176.          End,
  177.         End, /* Listview */
  178.         Child, HGroup, GroupFrameT(TEXT(MSG_ENTER_DATA_GUI)),
  179.          Child, VGroup,
  180. //          Child, HGroup,
  181. //           Child, ColGroup(4),
  182. //            Child, KeyLabel2(TEXT(MSG_DATE_LABEL),
  183. //                             TEXT(MSG_SHORTCUT_DATE)[0]),
  184. //            Child, ST_Gad5 = MyString(15,
  185. //                                      TEXT(MSG_SHORTCUT_DATE)[0]),
  186. //            Child, KeyLabel2(TEXT(MSG_PRICE_LABEL),
  187. //                                  TEXT(MSG_SHORTCUT_PRICE)[0]),
  188. //            Child, ST_Gad6 = MyFloat(15,
  189. //                                      TEXT(MSG_SHORTCUT_PRICE)[0]),
  190. //           End,
  191. //          End,
  192.           Child, HGroup,
  193.            Child, ColGroup(2),
  194.             Child, KeyLabel2(TEXT(MSG_DATE_LABEL),
  195.                              TEXT(MSG_SHORTCUT_DATE)[0]),
  196.             Child, ColGroup(3),
  197.              Child, ST_Gad5 = MyString(15,
  198.                                       TEXT(MSG_SHORTCUT_DATE)[0]),
  199.              Child, KeyLabel2(TEXT(MSG_PRICE_LABEL),
  200.                                   TEXT(MSG_SHORTCUT_PRICE)[0]),
  201.              Child, ST_Gad6 = MyFloat(15,
  202.                                       TEXT(MSG_SHORTCUT_PRICE)[0]),
  203.             End,
  204.             Child, KeyLabel2(TEXT(MSG_TITLE_LABEL),
  205.                              TEXT(MSG_SHORTCUT_TITLE)[0]),
  206.             Child, ST_Gad7 = MyString(MAXTEXTSTRING-1,
  207.                                       TEXT(MSG_SHORTCUT_TITLE)[0]),
  208.             Child, KeyLabel2(TEXT(MSG_REMARK_LABEL),
  209.                                  TEXT(MSG_SHORTCUT_REMARK)[0]),
  210.             Child, ST_Gad8 = MyString(MAXTEXTSTRING-1,
  211.                                       TEXT(MSG_SHORTCUT_REMARK)[0]),
  212.            End,
  213.           End,
  214.           Child, HGroup,
  215.            Child, ColGroup(4),
  216.             MUIA_Group_SameSize, TRUE,
  217.             Child, BT_UN_New = KeyButton(TEXT(MSG_NEW_GAD),
  218.                                          TEXT(MSG_SHORTCUT_NEW)[0]),
  219.             Child, BT_UN_Change = KeyButton(TEXT(MSG_CHANGE_GAD),
  220.                                             TEXT(MSG_SHORTCUT_CHANGE)[0]),
  221.             Child, BT_UN_Delete = KeyButton(TEXT(MSG_DELETE_GAD),
  222.                                             TEXT(MSG_SHORTCUT_DELETE)[0]),
  223.             Child, BT_UN_Cancel = KeyButton(TEXT(MSG_CANCEL_TEXT),
  224.                                             TEXT(MSG_SHORTCUT_CANCEL)[0]),
  225.             End, /* ColGroup */
  226.           End, /* HGroup */
  227.          End, /* VGroup */
  228.         End, /* HGroup (GroupFrameT) */
  229.         Child, HGroup,
  230.          Child, ColGroup(3),
  231.           Child, RectangleObject, NoFrame, MUIA_Weight, 500, End,
  232.           Child, BT_UN_Close = KeyButton(TEXT(MSG_CLOSEWINDOW_GAD),
  233.                                          TEXT(MSG_SHORTCUT_CLOSEWINDOW)[0]),
  234.           Child, RectangleObject, NoFrame, MUIA_Weight, 500, End,
  235.          End,
  236.         End,
  237.        End, /* VGroup (WindowContents) */
  238.       End, /* WindowObject */
  239.       SubWindow, WI_Neu = WindowObject,
  240.        MUIA_Window_ID,  'INIT',
  241.        MUIA_Window_Title, WTitel,
  242.        MUIA_Window_Menu , MUIV_Window_Menu_NoMenu,
  243.        MUIA_HelpNode    , "newwindow",
  244.        
  245.        WindowContents, VGroup,
  246.         Child, ColGroup(3),
  247.          Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
  248.          Child, NE_Title = TextObject,
  249.           TextFrame,
  250.           MUIA_Text_PreParse, "\33c",
  251.          End,
  252.          Child, RectangleObject, NoFrame, MUIA_Weight, 300, End,
  253.         End, /* ColGroup */
  254.         Child, HGroup,
  255.          Child, ColGroup(2),
  256.           MUIA_Group_SameSize, TRUE,
  257.           Child, KeyLabel2(TEXT(MSG_SIGN_LABEL),
  258.                            TEXT(MSG_SHORTCUT_SIGN)[0]),
  259.           Child, NE_Gad1 = MyString(19,
  260.                                     TEXT(MSG_SHORTCUT_SIGN)[0]),
  261.           Child, KeyLabel2(TEXT(MSG_DATE_LABEL),
  262.                            TEXT(MSG_SHORTCUT_DATE)[0]),
  263.           Child, NE_Gad2 = MyString(15,
  264.                                     TEXT(MSG_SHORTCUT_DATE)[0]),
  265.           Child, KeyLabel2(TEXT(MSG_KM_LABEL),
  266.                            TEXT(MSG_SHORTCUT_KM)[0]),
  267.           Child, NE_Gad3 = MyInt(8,
  268.                                  TEXT(MSG_SHORTCUT_KM)[0]),
  269.           Child, KeyLabel2(TEXT(MSG_DATEFORMAT_LABEL),
  270.                            TEXT(MSG_SHORTCUT_DATEFORMAT)[0]),
  271.           Child, NE_Gad4 = KeyCycle(Formate, 
  272.                                     TEXT(MSG_SHORTCUT_DATEFORMAT)[0]),
  273.           Child, NE_OK   = KeyButton(TEXT(MSG_OK_TEXT),
  274.                                      TEXT(MSG_SHORTCUT_OK)[0]),
  275.           Child, NE_Cancel = KeyButton(TEXT(MSG_CANCEL_TEXT),
  276.                                        TEXT(MSG_SHORTCUT_CANCEL)[0]),
  277.          End, /* ColGroup */
  278.         End, /* HGroup */
  279.        End, /* VGroup (WContents) */
  280.       End, /* WObject */
  281.      End;      /* ApplicationObject */
  282.